home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / spanhang / wheel.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  12.3 KB  |  279 lines
  1. 1  SCREEN 0:WIDTH 40:KEY OFF
  2. 2  PLAYER=1
  3. 5  CLS
  4. 6  ME$="WHEEL OF FORTUNE":MES=LEN(ME$)
  5. 10  LOCATE 12,20-INT(MES/2)+1:PRINT ME$
  6. 20  MF$="by Tom Reilly":MFS=LEN(MF$):LOCATE 14,20-INT(MFS/2):PRINT MF$
  7. 30  LOCATE 20,1:PRINT "       (PRESS ANY KEY START GAME)       "
  8. 40  R$=INKEY$:KOLA=RND:IF R$="" THEN 40
  9. 50  CLS
  10. 60  INPUT "HOW MANY PLAYERS ARE THERE (1-6)";RAY
  11. 65  DIM S(21)
  12. 70  FOR I=1 TO 21:READ S(I):NEXT I
  13. 1000  'PREPARING GAME
  14. 1020  DIM N$(500),TOM$(100),BREE$(26)
  15. 1030  FOR I=1 TO 150:READ N$(I):NEXT I
  16. 1040  CLS
  17. 1041  FOR TUE=0 TO 26:BREE$(TUE)="":NEXT TUE:ZUB=0
  18. 1042  ROUND=ROUND+1
  19. 1043  IF ROUND=4 THEN 3000
  20. 1044  IF ROUND=2 THEN 5000
  21. 1045  IF ROUND=3 THEN 5100
  22. 1050  HOWI=1
  23. 1070  P=INT(RND*150)+1:AN$=N$(P)
  24. 1080  A=1:GO=20-INT((LEN(AN$)-1)/2)
  25. 1090  TOM$=MID$(AN$,A,1)
  26. 1100  IF TOM$=" " THEN LOCATE 12,GO: PRINT " ":GO=GO+1:A=A+1:GOTO 1090
  27. 1110  IF TOM$="*" THEN 1122
  28. 1120  LOCATE 12,GO:PRINT "-":A=A+1:GO=GO+1:GOTO 1090
  29. 1122  IF P<51 THEN TEX$="PERSON"
  30. 1123  IF P>50 AND P<101 THEN TEX$="PLACE"
  31. 1124  IF P>100 AND P<151 THEN TEX$="THING"
  32. 1125  IF P>150 THEN TEX$="PHRASE"
  33. 1126  VAB=LEN(AN$)-1:LAMP=LEN(TEX$)
  34. 1127  TAX=INT(VAB/2)+20-INT(VAB/2)-INT(LAMP/2):FOR TEA=1 TO VAB:TOM$(TEA)=MID$(TEX$,TEA,1):NEXT TEA:HUGH=1:FOR TIX=TAX TO VAB+TAX:LOCATE 14,TIX:PRINT TOM$(HUGH):HUGH=HUGH+1:FOR SHOW=1 TO 25:NEXT SHOW:NEXT TIX
  35. 1130  'BEGIN GAME
  36. 1140  LOCATE 5,1:PRINT "PLAYER";PLAYER
  37. 1141  IF RAY<4 THEN LOCATE 7,1:FOR FUN=1 TO RAY:PRINT "PLAYER";FUN;":        ":NEXT FUN:GOTO 1145
  38. 1142  LOCATE 7,1:FOR FUN=1 TO 3:PRINT "PLAYER";FUN;":        ":NEXT FUN
  39. 1143  FOR FUN=4 TO RAY:LOCATE 3+FUN,20:PRINT "PLAYER";FUN;":        ":NEXT FUN
  40. 1145  IF RAY<4 THEN LOCATE 7,1:FOR FUN=1 TO RAY:PRINT "PLAYER";FUN;":";MIN(FUN):NEXT FUN:GOTO 1150
  41. 1146  LOCATE 7,1:FOR FUN=1 TO 3:PRINT "PLAYER";FUN;":";MIN(FUN):NEXT FUN
  42. 1147  FOR FUN=4 TO RAY:LOCATE 3+FUN,20:PRINT "PLAYER";FUN;":";MIN(FUN):NEXT FUN
  43. 1148  MON=0
  44. 1150  ED$=INKEY$:IF ED$="" THEN 1150
  45. 1151  IF ED$="A" THEN 2000
  46. 1152  IF ED$="E" THEN 2000
  47. 1153  IF ED$="I" THEN 2000
  48. 1154  IF ED$="O" THEN 2000
  49. 1155  IF ED$="U" THEN 2000
  50. 1156  IF ED$="1" THEN 1300
  51. 1157  IF ED$="2" THEN 1600
  52. 1158  IF ED$="3" THEN 3700
  53. 1159  GOTO 1150
  54. 1160  ED$=INKEY$:IF ED$="" THEN 1160
  55. 1161  IF ED$="1" THEN LOCATE 1,1:PRINT "YOU CAN'T GUESS THE ANSWER NOW!":FOR TREE=1 TO 700:NEXT TREE:LOCATE 1,1:PRINT "                                        ":GOTO 1160
  56. 1162  IF ED$="2" THEN LOCATE 1,1:PRINT"YOU HAVE SPUN ALREADY!":FOR TREE=1 TO 700:NEXT TREE:LOCATE 1,1:PRINT"                                        ":GOTO 1160
  57. 1166  IF ED$="A" THEN 1160
  58. 1167  IF ED$="E" THEN 1160
  59. 1168  IF ED$="I" THEN 1160
  60. 1169  IF ED$="O" THEN 1160
  61. 1170  IF ED$="U" THEN 1160
  62. 1171  GO=20-INT(VAB/2)
  63. 1172  KGB=0
  64. 1180  YOUR=LEN(AN$)
  65. 1190  BETH=YOUR-1
  66. 1191  FOR A=0 TO BETH-1
  67. 1192  TOM=SCREEN(12,A+20-INT(VAB/2))
  68. 1193  IF CHR$(TOM)=ED$ THEN MAUREEN=1
  69. 1194  NEXT A:IF MAUREEN=1 THEN GOSUB 1500:GOTO 1130
  70. 1195  FOR B=0 TO ZUB
  71. 1196  IF ED$=BREE$(B) THEN MAUREEN=1
  72. 1197  NEXT B
  73. 1198  IF MAUREEN=1 THEN GOSUB 1500:GOTO 1130
  74. 1200  FOR A=1 TO BETH
  75. 1210  TOM$=MID$(AN$,A,1)
  76. 1220  IF ED$=TOM$ THEN LOCATE 12,GO:PRINT ED$:KGB=KGB+1
  77. 1230  GO=GO+1
  78. 1240  NEXT A
  79. 1260  GOSUB 1400
  80. 1270  IF KGB=0 THEN LOCATE 3,HOWI:PRINT ED$:HOWI=HOWI+2:BREE$(ZUB)=ED$:ZUB=ZUB+1:IF SPIN(PLAYER)>0 THEN GOSUB 3550:IF NUTO=1 THEN NUTO=0:GOTO 1272
  81. 1271  IF KGB=0 THEN PLAYER=PLAYER+1:IF PLAYER=RAY+1 THEN PLAYER=1
  82. 1272  IF KGB=0 THEN 1140
  83. 1273  IF ED$="A" OR ED$="E" OR ED$="I" THEN 1130
  84. 1274  IF ED$="O" OR ED$="U" THEN 1130
  85. 1275  MIN(PLAYER)=MON*KGB+MIN(PLAYER)
  86. 1280  GOTO 1140
  87. 1290  'ANSWERING
  88. 1300  LOCATE 1, 1:PRINT"WHAT IS THE ANSWER"
  89. 1310  LOCATE 1,19:INPUT EWEL$
  90. 1320  VEL=LEN(AN$):FRO$=MID$(AN$,1,VEL-1)
  91. 1330  IF EWEL$=FRO$ THEN LOCATE 2,1:PRINT"YOU ARE CORRECT!":LOCATE 12,20-INT((VEL-1)/2):PRINT FRO$:GOTO 1360
  92. 1340  LOCATE 2,1:PRINT"SORRY, THAT IS INCORRECT."
  93. 1350  FOR SAM=1 TO 1000:NEXT SAM:LOCATE 1,1:PRINT"                                        ":LOCATE 2,1:PRINT"                                        ":IF SPIN(PLAYER)>0 THEN GOSUB 3500:IF NUTO=1 THEN NUTO=0:GOTO 1130
  94. 1352  PLAYER=PLAYER+1:IF PLAYER=RAY+1 THEN PLAYER=1
  95. 1354  GOTO 1130
  96. 1360  FOR SAM=1 TO 1000:NEXT SAM:LOCATE 1,1:PRINT"                                        ":LOCATE 2,1:PRINT"                                        ":GOSUB 3500
  97. 1361  GOTO 1040
  98. 1400  JHS=45
  99. 1410  FOR PFS=20-INT((LEN(AN$)-1)/2) TO LEN(AN$)-1+15
  100. 1420  HS=SCREEN(12,PFS)
  101. 1430  IF HS=JHS THEN K=1
  102. 1440  NEXT PFS
  103. 1450  IF K<>1 THEN 1040
  104. 1460  K=0
  105. 1470  RETURN
  106. 1500  MAUREEN=0:LOCATE 1,1:PRINT "THAT LETTER WAS PICKED ALREADY.":LOCATE 2,1:PRINT "SORRY, YOU LOSE YOUR TURN.":FOR TOMB=1 TO 1000:NEXT TOMB:LOCATE 1,1:PRINT"                                        "
  107. 1510  LOCATE 2,1:PRINT"                                        ":IF SPIN(PLAYER)>0 THEN GOSUB 3550:IF NUTO=1 THEN NUTO=0:GOTO 1520
  108. 1512  PLAYER=PLAYER+1:IF PLAYER=RAY+1 THEN PLAYER=1
  109. 1520  RETURN
  110. 1600  FAT=INT(RND*24)+1
  111. 1610  IF FAT=22 THEN VOI$="LOOSE A TURN"
  112. 1620  IF FAT=23 AND ROUND=1 THEN VOI$="FREE SPIN"
  113. 1630  IF FAT=23 AND ROUND<>1 THEN VOI$="BANKRUPT"
  114. 1640  IF FAT=24 THEN VOI$="BANKRUPT"
  115. 1650  FOR GOOD=1 TO 5
  116. 1655  LOCATE 20,1:PRINT"                                        "
  117. 1660  HALF=INT(RND*24)+1
  118. 1665  IF HALF=GERTRUDE THEN 1660
  119. 1667  GETRUDE=HALF
  120. 1670  IF HALF=22 THEN YOHAN$="LOOSE A TURN":GOTO 1800
  121. 1680  IF HALF=23 AND ROUND=1 THEN YOHAN$="FREE SPIN":GOTO 1800
  122. 1690  IF HALF=23 AND ROUND<>1 THEN YOHAN$="BANKRUPT":GOTO 1800
  123. 1700  IF HALF=24 THEN YOHAN$="BANKRUPT":GOTO 1800
  124. 1710  YOGART=S(HALF)
  125. 1720  LOCATE 20,18:PRINT YOGART
  126. 1730  GOTO 1850
  127. 1800  LOCATE 20,20-INT(LEN(YOHAN$)/2):PRINT YOHAN$
  128. 1850  FOR TIME=1 TO 200:NEXT TIME
  129. 1860  NEXT GOOD
  130. 1870  LOCATE 20,1:PRINT"                                        "
  131. 1880  IF FAT>21 THEN LOCATE 20,20-INT(LEN(VOI$)/2):PRINT VOI$:GOTO 1950
  132. 1890  LOCATE 20,18:PRINT S(FAT)
  133. 1900  MON=S(FAT):GOTO 1160
  134. 1950  IF VOI$="BANKRUPT" THEN MIN(PLAYER)=0:IF SPIN(PLAYER)>0 THEN GOSUB 3550:IF NUTO=1 THEN NUTO=0:GOTO 1130
  135. 1952  IF VOI$="BANKRUPT" THEN PLAYER=PLAYER+1:IF PLAYER=RAY+1 THEN PLAYER=1
  136. 1960  IF VOI$="BANKRUPT" THEN 1130
  137. 1970  IF VOI$="FREE SPIN" THEN SPIN(PLAYER)=SPIN(PLAYER)+1:GOTO 1130
  138. 1980  IF VOI$="LOOSE A TURN" THEN BANA=0:IF SPIN(PLAYER)>0 THEN GOSUB 3550:IF NUTO=1 THEN NUTO=0:GOTO 1130
  139. 1990  IF VOI$="LOOSE A TURN" THEN PLAYER=PLAYER+1:IF PLAYER=RAY+1 THEN PLAYER=1:
  140. 1995  GOTO 1130
  141. 2000  IF MIN(PLAYER)>250 THEN MIN(PLAYER)=MIN(PLAYER)-250:GOTO 1171
  142. 2010  LOCATE 1,1:PRINT "YOU DO NOT HAVE ENOUGH MONEY FOR AN ";ED$;"."
  143. 2020  LOCATE 2,1:PRINT "VOWELS ARE $250!"
  144. 2030  FOR VOWEL=1 TO 1000:NEXT VOWEL
  145. 2040  LOCATE 1,1:PRINT"                                        "
  146. 2050  LOCATE 2,1:PRINT"                                        "
  147. 2060  GOTO 1130
  148. 3000  CLS
  149. 3010  PRINT "THIS IS HOW MUCH EACH OF THE PLAYERS":PRINT"HAVE:"
  150. 3020  PRINT:PRINT:PRINT
  151. 3030  FOR GI=1 TO RAY:PRINT "PLAYER";GI;":";MINT(GI):NEXT GI
  152. 3040  IF MINT(1)>MINT(2) AND MINT(1)>MINT(3) AND MINT(1)>MINT(4) AND MINT (1)>MINT(5) AND MINT(1)>MINT(6) THEN WINNER=1:GOTO 3100
  153. 3050  IF MINT(2)>MINT(1) AND MINT(2)>MINT(3) AND MINT(2)>MINT(4) AND MINT (2)>MINT(5) AND MINT(2)>MINT(6) THEN WINNER=2:GOTO 3100
  154. 3060  IF MINT(3)>MINT(1) AND MINT(3)>MINT(2) AND MINT(3)>MINT(4) AND MINT (3)>MINT(5) AND MINT(3)>MINT(6) THEN WINNER=3:GOTO 3100
  155. 3070  IF MINT(4)>MINT(1) AND MINT(4)>MINT(2) AND MINT(4)>MINT(3) AND MINT (4)>MINT(5) AND MINT(4)>MINT(6) THEN WINNER=4:GOTO 3100
  156. 3080  IF MINT(5)>MINT(1) AND MINT(5)>MINT(2) AND MINT(5)>MINT(3) AND MINT (5)>MINT(4) AND MINT(5)>MINT(6) THEN WINNER=5:GOTO 3100
  157. 3090  IF MINT(6)>MINT(1) AND MINT(6)>MINT(2) AND MINT(6)>MINT(3) AND MINT (6)>MINT(4) AND MINT(6)>MINT(5) THEN WINNER=6:GOTO 3100
  158. 3095  PRINT:PRINT:PRINT:PRINT"WE HAVE A TIE!":PRINT"WE WILL PLAY ONE MORE ROUND TO BREAK":PRINT"THE TIE.":ROUND=2:GOTO 1040
  159. 3100  PRINT:PRINT:PRINT:PRINT"AND THE WINNER IS PLAYER";WINNER;"!"
  160. 3110  PRINT:PRINT"PLAYER";WINNER;"WILL PLAY THE BONUS ROUND."
  161. 3120  LOCATE 20,1:PRINT"      (PRESS ANY KEY TO CONTINUE)"
  162. 3130  IF INKEY$="" THEN 3130
  163. 3140  CLS
  164. 3150  GANDA=INT(RND*150)+1
  165. 3160  AN$=N$(GANDA)
  166. 3170  A=1:GO=20-INT((LEN(AN$)-1)/2)
  167. 3180  TOM$=MID$(AN$,A,1)
  168. 3190  IF TOM$=" " THEN LOCATE 12,GO:PRINT " ":GO=GO+1:A=A+1:GOTO 3180
  169. 3200  IF TOM$="*" THEN 3220
  170. 3210  LOCATE 12,GO:PRINT"-":A=A+1:GO=GO+1:GOTO 3180
  171. 3220  IF GANDA<51 THEN TEX$="PERSON"
  172. 3222  IF GANDA>50 AND GANDA<101 THEN TEX$="PLACE"
  173. 3224  IF GANDA>100 AND GANDA<151 THEN TEX$="THING"
  174. 3226  IF GANDA>150 THEN TEX$="PHRASE"
  175. 3230  VAB=LEN(AN$)-1:LAMP=LEN(TEX$)
  176. 3240  TAX=INT(VAB/2)+20-INT(VAB/2)-INT(LAMP/2):FOR TEA=1 TO VAB:TOM$(TEA)=MID$(TEX$,TEA,1):NEXT TEA:HUGH=1:FOR TIX=TAX TO VAB+TAX:LOCATE 14,TIX:PRINT TOM$(HUGH):HUGH=HUGH+1:FOR SHOW=1 TO 25:NEXT SHOW:NEXT TIX
  177. 3250  LOCATE 1,1:PRINT"GIVE ME FIVE CONSONANTS AND A VOWEL:"
  178. 3260  FOR BRED=1 TO 5
  179. 3270  GR$=INKEY$:IF GR$="" THEN 3270
  180. 3280  IF GR$="A" THEN LOCATE 3,1:PRINT"TYPE IN THE FIVE CONSONANTS FIRST.":FOR JERK=1 TO 700:NEXT JERK:LOCATE 3,1:PRINT"                                        ":GOTO 3270
  181. 3290  IF GR$="E" THEN LOCATE 3,1:PRINT"TYPE IN THE FIVE CONSONANTS FIRST.":FOR JERK=1 TO 700:NEXT JERK:LOCATE 3,1:PRINT"                                        ":GOTO 3270
  182. 3300  IF GR$="I" THEN LOCATE 3,1:PRINT"TYPE IN THE FIVE CONSONANTS FIRST.":FOR JERK=1 TO 700:NEXT JERK:LOCATE 3,1:PRINT"                                        ":GOTO 3270
  183. 3310  IF GR$="O" THEN LOCATE 3,1:PRINT"TYPE IN THE FIVE CONSONANTS FIRST.":FOR JERK=1 TO 700:NEXT JERK:LOCATE 3,1:PRINT"                                        ":GOTO 3270
  184. 3320  IF GR$="U" THEN LOCATE 3,1:PRINT"TYPE IN THE FIVE CONSONANTS FIRST.":FOR JERK=1 TO 700:NEXT JERK:LOCATE 3,1:PRINT"                                        ":GOTO 3270
  185. 3330  BLEF=BLEF+1
  186. 3340  NEED$(BLEF)=GR$
  187. 3350  FOR HI=1 TO 5
  188. 3360  IF BLEF=HI THEN 3390
  189. 3370  IF NEED$(BLEF)=NEED$(HI) THEN LOCATE 3,1:PRINT"YOU PICKED THAT LETTER ALREADY.":FOR FRODO=1 TO 700:NEXT FRODO:LOCATE 3,1:PRINT"                                        ":NAUGHT=1
  190. 3390  NEXT HI
  191. 3393  IF NAUGHT=1 THEN NAUGHT=0:GOTO 3270
  192. 3394  SHEEP=SHEEP+2
  193. 3395  LOCATE 5,SHEEP:PRINT GR$
  194. 3397  CON=CON+1
  195. 3398  JEFF$(CON)=GR$
  196. 3400  NEXT BRED
  197. 3410  GR$=INKEY$:IF GR$="" THEN 3410
  198. 3420  IF GR$<>"A" AND GR$<>"E" AND GR$<>"O" AND GR$<>"U" THEN LOCATE 3,1:PRINT"PICK A VOWEL PLEASE.":FOR GON=1 TO 700:NEXT GON:LOCATE 5,1:PRINT"                                        ":GOTO 3410
  199. 3430  JEFF$(6)=GR$
  200. 3432  SHEEP=SHEEP+2:LOCATE 5,SHEEP:PRINT GR$
  201. 3434  UGY=LEN(AN$)-1
  202. 3440  FOR CHECK=1 TO 6
  203. 3442  GO=20-INT(UGY/2)
  204. 3450  FOR KATE=1 TO LEN(AN$)-1
  205. 3455  BLAB$=MID$(AN$,KATE,1)
  206. 3460  IF BLAB$=JEFF$(CHECK) THEN LOCATE 12,GO:PRINT JEFF$(CHECK)
  207. 3462  GO=GO+1
  208. 3465  NEXT KATE
  209. 3470  NEXT CHECK
  210. 3475  LOCATE 20,1:PRINT"WHAT IS THE ANSWER?":LOCATE 21,1:INPUT GHO$
  211. 3480  HUGY$=MID$(AN$,1,UGY)
  212. 3481  IF GHO$<>HUGY$ THEN 3830
  213. 3482  IF GHO$=HUGY$ THEN CLS:LOCATE 10,1:PRINT "            CONGRATULATIONS!":LOCATE 12,1:PRINT"       YOU HAVE JUST WON $25,000!"
  214. 3484  LOCATE 13,1:PRINT "YOUR TOTAL WINNINGS ARE $";MINT(WINNER)+25000;"!"
  215. 3486  GOTO 3860
  216. 3500  FOR DOP=1 TO RAY
  217. 3510  IF DOP=PLAYER THEN 3530
  218. 3520  MIN(DOP)=0
  219. 3530  NEXT DOP
  220. 3532  FOR DOP=1 TO RAY
  221. 3534  MINT(DOP)=MINT(DOP)+MIN(DOP)
  222. 3536  NEXT DOP
  223. 3537  FOR DOP=1 TO RAY:MIN(DOP)=0:NEXT DOP
  224. 3538  PLAYER=PLAYER+1:IF PLAYER=RAY+1 THEN PLAYER=1
  225. 3540  RETURN
  226. 3550  IF SPIN(PLAYER)>1 THEN LOCATE 1,1:PRINT"DO YOU WANT TO USE ONE OF YOUR FREE":LOCATE 2,1:PRINT"SPINS? (Y/N)"
  227. 3560  IF SPIN(PLAYER)=1 THEN LOCATE 1,1:PRINT"DO YOU WANT TO USE YOUR FREE SPIN? (Y/N)"
  228. 3570  LAUGH$=INKEY$:IF LAUGH$="" THEN 3570
  229. 3580  IF LAUGH$="Y" THEN NUTO=1:SPIN(PLAYER)=SPIN(PLAYER)-1:GOTO 3610
  230. 3590  IF LAUGH$="N" THEN 3610
  231. 3600  GOTO 3570
  232. 3610  LOCATE 1,1:PRINT"                                        ":LOCATE 2,1:PRINT"                                        ":RETURN
  233. 3700  FOR SPOT=5 TO 11
  234. 3710  LOCATE SPOT,1:PRINT"                                        "
  235. 3720  NEXT SPOT
  236. 3730  LOCATE 5,1:PRINT"THIS IS HOW MANY FREE SPINS EACH PLAYER":LOCATE 6,1:PRINT"HAS:"
  237. 3740  IF RAY<4 THEN LOCATE 7,1:FOR FRU=1 TO RAY:PRINT"PLAYER";FRU;"HAS";SPIN(FRU):NEXT FRU:GOTO 3770
  238. 3750  LOCATE 7,1:FOR FRU=1 TO 3:PRINT"PLAYER";FRU;"HAS";SPIN(FRU):NEXT FRU
  239. 3760  FOR FRU=4 TO RAY:LOCATE 3+FRU,20:PRINT "PLAYER";FRU;"HAS";SPIN(FRU):NEXT FRU
  240. 3770  LOCATE 10,1:PRINT "   (PRESS ANY KEY TO CONTINUE GAME!)    "
  241. 3780  USG$=INKEY$:IF USG$="" THEN 3780
  242. 3790  FOR SPOT=5 TO 11
  243. 3800  LOCATE SPOT,1:PRINT"                                        "
  244. 3810  NEXT SPOT
  245. 3820  GOTO 1130
  246. 3830  UGY=LEN(AN$)-1
  247. 3835  B$=MID$(AN$,1,UGY)
  248. 3840  CLS:PRINT"SORRY!  THE ANSWER WAS ";B$;"."
  249. 3850  PRINT:PRINT:PRINT"YOU DON'T GET THE $25000, BUT YOU HAVE  A TOTAL OF";MINT(WINNER);"!"
  250. 3860  PRINT
  251. 3870  PRINT
  252. 3880  PRINT "DO YOU WANT TO PLAY WHEEL OF FORTUNE"
  253. 3885  INPUT "AGAIN (Y/N)";LA$
  254. 3890  IF LA$="Y" THEN RUN
  255. 3900  IF LA$="N" THEN CLS:END
  256. 3910  GOTO 3880
  257. 5000  FOR I=1 TO 21:READ S(I):NEXT I
  258. 5010  GOTO 1050
  259. 5100  FOR I=1 TO 21:READ S(I):NEXT I
  260. 5110  GOTO 1050
  261. 9000  DATA 1000,500,400,300,200,700,200,150,450,400,250,900,150,400,600,250,350,750,800,300,200
  262. 9999  'PERSON
  263. 10000  DATA CHRISTOPHER COLUMBUS*,GARBAGE MAN*,TAX COLLECTOR*,TEACHER*,RONALD REAGAN*,GRANDMA*,STEVE MARTIN*,GEORGE WASHINGTON*,SUPERMAN*,RICHARD NIXON*,OPERATOR*,RICHARD PRYOR*,EDDIE MURPHY*,BUS DRIVER*,SALESMAN*,POLITICIAN*,BILL COSBY*,ELECTRICIAN*
  264. 10010  DATA SCOTT BAIO*,COMPUTER PROGRAMER*,QUEEN ELIZABETH*,JIMMY CARTER*,THE POPE*,FOOTBALL PLAYER*,RICHARD NIXON*,BASEBALL PLAYER*,DENTIST*,THOMAS JEFFERSON*,CLINT EASTWOOD*,ANDREW JACKSON*,ANDREW JOHNSON*
  265. 10020  DATA JOHN THE BAPTIST*,MADONNA*,BASKETBALL PLAYER*,PAUL NEWMAN*,JOHN WAYNE*,JULIE ANDREWS*,ALFRED HITCHCOCK*,TOM HANKS*,CHEVY CHASE*,DREW BARRYMORE*,ROBERT REDFORD*,SEAN CONNERY*,GEORGE PEPPARD*
  266. 10030  DATA SYLVESTER STALLONE*,DOLLY PARTON*,DUDLEY MOORE*,BROOKE SHIELDS*,DEAN MARTIN*,JERRY LEWIS*
  267. 10039  ' PLACE
  268. 10040  DATA SAN FRANCISCO*,SAN DIEGO*,NEW YORK*,CANADA*,BACKYARD*,AIRPORT*,APARTMENT*,KANSAS*,NEBRASKA*,NEW MEXICO*,BATHROOM*,GAS STATION*,TRAIN STATION*,BUS TERMINAL*,BROOKLYN*,WORLD TRADE CENTER*,WEST VIRGINIA*
  269. 10050  DATA HOSPITAL*,PRISON*,BOARDING SCHOOL*,UNIVERSITY*,KITCHEN*,FLORIDA*,EUROPE*,DEPARTMENT STORE*,LIGHTHOUSE*,EMPIRE STATE BUILDING*,WAREHOUSE*,SHOE FACTORY*,FLOWER SHOP*,MANSION*,DELICATESSEN*,SUBWAY*,STATUE OF LIBERTY*
  270. 10060  DATA GOLDEN GATE BRIDGE*,PHILADELPHIA*,PENNSYLVANIA*,WASHINGTON MONUMENT*,NIAGRA FALLS*,THE WHITE HOUSE*,RHODE ISLAND*,YANKEE STADIUM*,LINCOLN MEMORIAL*,JERUSALEM*,THE PENTAGON*,THE CAPITOL*,THE JEFFERSON MEMORIAL*
  271. 10070  DATA BETHLEHAM*,MADISON SQUARE GARDEN*,MUSEUM*
  272. 10079  ' THING
  273. 10080  DATA SOCCER BALL*,NEW YORK TIMES*,CIGARETTE*,AUTOMOBILE*,MAYONNAISE*,AMERICAN CHEESE*,ICE CREAM*,TOILET BOWL*,CANADIAN FLAG*,INVITATION*,QUESTION MARK*,OAK TREE*,STRAWBERRY YOGURT*,TELEVISION*,TELEPHONE*
  274. 10090  DATA FOOTBALL*,ELEPHANT*,BASEBALL*,AMERICAN FLAG*,TENNIS BALL*,POCKETBOOK*,DECK OF CARDS*,CANADIAN COIN*,PICTURE FRAME*,CALENDER*,BOOKCASE*,SIDEWALK*
  275. 10100  DATA DICTIONARY*,COMIC STRIP*,MISTLETOE*,CHRISTMAS TREE*,SQUAD CAR*,GRIZZLY BEAR*,BLUEBERRY*,OVERHANG*,DINOSAUR*,TRIVIAL PURSUIT*,KITCHEN CABINET*,ENCYCLOPEDIAS*,WORLD ATLAS*,CARROUSAL*,BIG TOE*,GARBAGE PAIL*,CHRISTMAS ORNAMENT*
  276. 10110  DATA POLAR BEAR*,CRAYON BOX*,CERTIFICATE*,GARAGE SALE*,FISHING POLE*,CASSETTE RECORDER*
  277. 20000  DATA 400,550,300,200,900,200,400,500,600,250,200,1000,600,300,700,450,800,150,500,400,250
  278. 20010  DATA 350,250,500,5000,300,800,1500,700,500,350,400,550,300,200,900,200,400,500,600,250,200
  279.